*n* 



h 



10 
i 11 

12 

13 
I 14 

IS 

16 
I 17 

18 

19 
I 20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

90 

31 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

U 

44 
45 
46 

47 

«e 

49" 

50 
61 
52 
53 

S4 

S5 
96 



LABEL 000000000PRIMF.K00l''5098CC LX OB JEC T/RE aU; j- 1 Lt SOUHCtF ILtsSYMBDL/ST ATS^; EN^* 



OBJECT /READ 



.<: yffBsL/STAT^y- 



# • 



2 
3 
4 
S 
6 
7 
8 
9 
10 
11 
12 
13 
14 
^5 

he" 

17 

18 

19 

20 

21 

22 

23 

24 

26 

26 

27 

28 

29 

30 

31 " 

32 

33 

34 

35 

36 

37" 

38 

39 



BEGIN* ANALYSIS OF STATISTlCii LOG FILE:, 

COMMENT! * TITLE! B5500/B5i'00 WAWa XIV SYbTEM 
J*- F IL £ ID J SYM B gL>^STA TSA lAPI_iiIl_k 



* THIS MATERIAL IS PROPRIETARY TO BU 

* AND IS NOT TO BE HEPROOUCED' USED* 

* EXCEPT IK ACCORDANCE WITH PROGRAM 



RELEASE 
YMB U L^ /F ILE QGO 



COOOOlOO 

ooououo 



* WRITTEN AUTHORIZATION UF THE HaTEN 

* BURROUGHS CORPORATION* DETROIT* MI 



RHOUQHS CORPORATION * 00000112 

OR DISCLOSED * 00000U3 

LICENSE PR UPON * OQO QOIH 



T DIVISION OF 
CHIGAN '18232 



* 



* COPYRIGHT 

* AA320206 
FILE CARD {2M03* 



(C) 1971, 1972 
AA3a6657 



BURROUGHS CORPORATION 



00000115 
00000116 
Q QQQO -UX. 






00000118 
00000119 
QQQQ030Q 



PRN 4(2M5)» 
DSK DISK SERIA 
ARRAY STL0G[0>1]#J0 



L (2'15'30); 
BSTATtfl:M^ 



CNTCo;^]; 



00000300 
00000400 
00000500 



REAL JOBTYPEl 
LABEL RD1*E0F 
FORMAT STLQGN 



JOBSTATS 



*vJ0BT*PE2*0VERLAYUSED' U 

; 

AMFC'tpSUFnO-LOG FIL£» "* Al > A6> "y*** Al» Aft ^# 



('♦JOE NAME* 'VA 
Xl*Al*A6/ 



l/A6,"/",Al,A6,xlO,"jOB TYPE* '%Al,A6, 



00000600 
00000700 
QQOQOflOn 



X4*"B0J TIMEJ 
X5 
_X1 



*'«EOJ TIMEJ 
/'^FLAPSED TI 



"^la*"!"*! 

♦'/I2#"l"»I 
ME: "^la," 



2' 
2* 

HINS j 



00000900 

00001000 

- 00 14^43- 



'*r5. 2#" SE CS t"/ / 



00001200 
00001300 
OnOQUO-Q- 



xa 

X5 
JLA 



^''PROCESSOR 
*" I/O TIME 
*"C O HE H ir' Q UI 



TIMtJ 



'13 
: " * 1 3 , " M 

RED? "f l!3* 



»" MIN 

INS. " 
" WORD 



S. " 
*Fi3. 



*Fb.2»" SECS.'S 
2*" SECS.'V/ 



00001500 
00001600 



XS^^TOTAL CORE 
X5*"DISK OVERU 
ya»**^uMRFR OF 



IN USE; " 
AY UisEDJ " 
CODE P BIT 



*I5*"C 
'13'" 



"'15 

SUB* 
TS» 



')' 



WORDS", 



SECTIONS"// 
"fiSf 



00001800 
00001900 
OQQ0200Q 



X3»"NUHBeR of 

x3, "number of 
X4*"number of 



CODE UVEHL 

SECOISOARY 
DATA P BIT 



ays: " 

CODE P 
INTRP 



'15' 

en 

TSi 



iNThPTS: ",15// 
"'I5f 



000C2100 
00002200 
00002300 



X3' "NUMBER OF 
X 3' "NUMBER OF 
Xa' "NUMBER DF 



OATA OVERL 
SECONDARY 
JOBS REMA 



AYS J " 
DATA P 
INING 



'15 

BIT 



INTRPTS! "'15// 
TX: "' 1 2 // 



00002400 
00002500 

jm.oi?260o. 



); 



% — — ' 

STREAM 



PR OCE DURE S CAN FILE(LQG ) 



O0U027O0 
■00002800 
0002900 - 



BEGIN REAL L0GAL2'L0C ALU 

SnoLOG) DI«» LOC LOCALi; 

DHwQUi; _ 



00003000 
00003100 
QQ0Q3PQQ 



40 
41 
<2 
43 
44 
45 
46 
47 
•8 
49 
50 
51 
52 
53 
54 
95 
56 



7(IF Sc*"/" THEN Db!=LlT" " ELSE OS:* CHH); 

si:=sui; DissDi + i; 
Dst°7 ch r ; 



00003300 
00003400 
OQ00 3500 



SllwUQC LCCAUlf 0li»LOGl 
DS»i»l6 cmr; 



end; 



00003600 
00003700 
00003800 



PROCEDURE cqmputeoverlay; 

BEGIN 



■00003900 
00004000 
00004100 



CNTC03I* Ri:ALC(Cl»aJ08STATC7]).tl8J6]) NE8 0); 

CNTCl3l« REAL(I,[24«63 NEO 0); 

CNTC23<» REALd. [30*63 WEfiO); ' 



00004200 
d00943O0 
00004400 



CNTC33t» REAL(I«C36«6J NEQ 0); 
CNTCrtSJ" REALd. [42*63 NEQ 0); 
0VERLAYUSED» = (C(ia3:U3-l)x5)tCNT[03-t'CNTCl3*CNT[23-*- 



00004500 

00004600 
00004700 



end; 



CNTC33*-CNT[43 ); 



%.m WH<ira>lB*««a*MM«>«il**>«iaia>ai«>»«iaMW<v«a>a>> 



00004800 

00004900 

'00005000 



IP 



h 



6 

7 
8 
9 

to 

11 
)2 
13 
i U 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 

is 

26 
27 
28 
29 

90 

31 ~ 
32 



33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 



43 
44 
46 
46 
♦7 

ts 

49 
SO 
B1 
52 
53 
54 
i5 
56 



PROCEDURE FINDJOBTYPE; 

BEGIN 
CASF cJnHSTATLRi.r^;-;<sJi 



M. 



BEGIN 



00005100 
00005200 



CASE (jOBSTATE8i.C36»63) OF 
BEGIN 



end; 

BEGIN 



BEGIN Ja8TYPti:="UNKN0wW''; JUBTYPE2IS" OBJtCT" EnD; 

BEGIN JOBTYPEi:=" HAS I C"; J0BTYPE2 S =" UBJtCT" END; 

BEGIN JOBTYP£l{=" AL6UL"; JUBT YPE2 S s^ OBJECT" EnD; 

BEGIN JOiTYPEl««" COBOL"; JOBTYPEZ iss" OBJECT" ENOI 
BEGIN JOBTYPElifFORTRAN"; jOBTyPE2I»" OBJECT" END; 

BFGIN JQBTYP£H»" TSPtJL"; JtiBTYPE2 U" OBJECT" EmQ; 

BEGIN JQBTYpEi:s" X ALGOL"; JC]BTYp£2 : =" OBJECT" EnD; 



00005^00 
00005500 
000 05600 



JOtfTYPFn=" alGoi ";jnRTYPF.2;aHf;r]MPTi F' 



BEGIN jOBfYPElts" 
BEGIN end; 
flEGIM J mi 



C0B0L"IJOBTYPE2«B"COMf*lLE" 



E.Nn; 
end; 



BEGIN end; 

BEGIN j0BTYPEn*"F0RTHAN";j0BTYPL2»="C0MPlLE" END; 

BEG I N j 0RTYP£n=" RA^ ID" ? JUbT YP£.«i > '"CUMP HE" bNp; 



00005700 
00005800 
00 005 900 

00006000 
00006100 

Q Q0 Q6 za.Q_ 
00006300 
00006400 
J QQ006 5QQ.. 
00006600 
00006700 
Q0QQ6f <Qn 



end; 



end; 



BEGIN end; 

BEGIN J0BTYPEI»«" XALGOL"; J0BTYPe2J«"C0MPlLE" END; 
- BFGIN jORTYPEHa" TSPPL"? jnPTYPE2l »"rOMPlLF" FNP; 



00006900 

00007000 

- 000Q7l Ofl- 



MAIN HlinY- 



REA0(CARD»2'STL0GC*]); 
SCANFlLECSTLOGi; 
-Ji l l L BSK WITH STLn c UQltST Ln GIl i ; 



00007200 
00007300 
00007400 
00007500 
00U07600 
•000 077 -00-. 



WRlTE(PRN»STL0GNAMt,STLOGCO],i:6«6],STLOGC0j# 

STL0GCl3.t6«6].IiTL0G[n); 
WRTTFfPRNin WRTTFfHRMi; 



00007800 
00007900 
00008000 



Ron readcosk,15#jobstatc*])i:eof]; 

IF J0BSTATC03»REALtN0T FALSE) THEN 6Q TO EOF; 

IF OVERLAYuSEOi«jOBSTATC73 NEM THEN COMPuTEOvERLAY; 



00008100 
00008200 

QQQoaamL 



findjobtype; 

WRITECPRN/j0BSTATS*JOBSTATre].tGJ6J'J0BSTATCoJ,JQRaTATCl J.C6«6J* 
J0BSTATcil^jndTYPEl.L6i6J>J0BTTP£l*JUBTYPF.2.C6t6]#JUBTYPE2^ 



(JDBSTAT[2]/3600) DIV 60# 
CJ08STATC21/3600) MOD 60* 
(JOBSTATt 33/3600) DIV 60* 



CJOBSTATC33/3600) MUD 60/ 

C( J0BSTATC3]-JOBSTaT[2]) UJV 36C0)* 

((J0BSTATC3]-JnBbTAT[2J) MQu 3600)/60* 



00008400 
00008500 
-QQQ 960 Q .. 
00008700 
00008800 
000089 00 
00009000 
00009100 
00009200 



(JOiSTATC4 3 01 V 
(JOBSTATt 4 3 MOD 
(JQBSTATC53 DTV 



3600)* 

3600)/60* 

9600)* 



00009300 
00009400 
00009500 



(JOBSTATC53 MOD 3600)/60* 

JOBSTATC63, [33:153* 

UQBSTATC6].C3il5 34J0QSTAT[6 3.ElB;15j), 



00009600 
00009700 
00Q09BOO 



J0BSTATC63.C3I15]* 

0VERLAYU5E0* 

JQBSTATtl03«t24»243* 



00009900 

oooioooo 

OOOlOiOO 



J0BSTAT[in.C24»24]* 
J0BSTATC123.C24J243* 
JOBSTAT[10].[i:233* 



00010200 
00010300 
00010400 



J08STATtll3.Cl:233* 
JOBSTAT[l23,Clt233* 
J08STATC133 



00010500 
00010600 
0001070 

oooioaoQ^ 

00010900 
00011000 



10 



# • 



^r 



WHITE(PRN); 
GO TO HQ11_ 



WRITEC^RN); 



oooiiioo 

00011200 



EOF I END. 
ENDjEND. 



LAST CARD ON OCRDlNCi TAPE 



OOUIUOO 
99999999 



00000O00QOOQOQOOix>AAQI?PRT(i:!a5) » AnnWfc5S 



■/ 

B 

9 
10 
11 
12 
13 
|l4 
ff5 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37" 
38 
39 
40 
41 
42 
43 



46 
46 
47 
48 
49 
50 
51 
52 
53 
S4 
is 
56 



LABEL 000000000PRIMEH00175098CC tX nBsJECT/Rt: AU; F ILt SOURCEF IlEsSYMBUl/ST aTS«; EnU«- 



OBJECT /READ 



h 

2 
3 
4 
5 
6 
7 



10 

11 

12 

13 

14 

15 

16 

17 

18 

19 ~ 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

M 

31 " 

32 

33 

34 

35 

36 

37 ~ 

38 

39 

40 

41 

42 



46 
47 

«e 

49 
50 
51 
52 
53 



55 
56 
57 



